home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / wildcat / qwkhold1.zip / QWK2HOLD.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-05-17  |  14KB  |  643 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  14011 bytes  03/09/122  08:19:16am
  3. '! Code Segment Size  :8419 bytes
  4. '! Data Segment Size  :4986 bytes
  5. '! String Segment Size:5592 bytes
  6. '! Compiled with WCC version 4.12
  7.  
  8.       Dim i4463 As Integer
  9.       Dim s4465 As String
  10.       Dim s4469 As String
  11.       Dim d4473 As Date
  12.       Dim i4475 As Integer
  13.       Dim s4477 As String
  14.       Dim s4481 As String
  15.       Dim s4485 As String
  16.       Dim w4489 As Word
  17.       Dim s4491 As String
  18.       Dim sr4495 As SearchRec
  19.       Dim l4544 As Long
  20.       Dim i4548 As Integer
  21.       Dim s4552 As String
  22.       Dim s4556 As String
  23.       Dim s4560 As String
  24.       Dim s4564 As String
  25.       Dim s4568 As String
  26.       Dim i4572 As Integer
  27.       Dim i4574 As Integer
  28.       Dim l4576 As Long
  29.       Dim i4902 As Integer
  30.       Dim s4904 As String
  31.       Dim i4908 As Integer
  32.       Dim i4910 As Integer
  33.       Dim s4914 As String
  34.       Dim s4918 As String
  35.       Dim s4922 As String
  36.       Dim s4926 As String
  37.       Dim s4930 As String
  38.       Dim s4936 As String
  39.       Dim s4940 As String
  40.       Dim s4948 As String
  41.       Dim i4952 As Integer
  42.       Dim i4954 As Integer
  43.       Dim s4956 As String
  44.       Dim s4960 As String
  45.       Dim s4964 As String
  46.       Dim l4968 As Long
  47.       Dim s4972 As String
  48.       Dim s4976 As String
  49.       Dim i4980 As Integer
  50.  
  51.       Dim l65524_ As Long
  52.       Dim i65528_ As Integer
  53.       Dim l65530_ As Long
  54.       Dim i65534_ As Integer
  55.  
  56.       EnablePages 0
  57.       s4491 = ProgPath + "QWK2HOLD.CFG"
  58.       If Exists(s4491) Then
  59.         Open s4491 For Input As 1
  60.         If Not Local Then
  61.           CarrierCheck(0)
  62.         End If
  63.   106   LockFile(1, 0, 1)
  64.         Input #1, s4976
  65.         Input #1, i4980
  66.         Input #1, s4948
  67.         Input #1, s4936
  68.         Input #1, s4960
  69.         Input #1, s4964
  70.         Input #1, i4574
  71.         Input #1, i4572
  72.         Input #1, l4576
  73.         Input #1, i4902
  74.         Input #1, s4918
  75.         Input #1, s4922
  76.         Input #1, s4926
  77.         Input #1, s4930
  78.         Input #1, s4940
  79.         Input #1, s4552
  80.         Input #1, s4556
  81.         Input #1, s4560
  82.         Input #1, s4564
  83.         Input #1, s4568
  84.         UnlockFile(1, 0, 1)
  85.         Close 1
  86.         If Not Local Then
  87.           CarrierCheck(-1)
  88.         End If
  89.   292 Else
  90.   298   i4463 = 0
  91.         GoTo 7270
  92.       End If
  93.   310 If User.SecLevel = s4960 Or User.SecLevel = s4964 Then
  94.         End 
  95.       End If
  96.   351 If s4976 = "" Then
  97.         i4463 = 1
  98.         GoTo 7270
  99.       Else
  100.   387   s4976 = Trim(UCase(s4976))
  101.         If Mid(s4976, 2, 2) <> ":\" Then
  102.           i4463 = 1
  103.           GoTo 7270
  104.         End If
  105.   438   If Right(s4976, 1) <> "\" Then
  106.           s4976 = s4976 + "\"
  107.         End If
  108.       End If
  109.   475 If s4948 = "" Then
  110.         i4463 = 2
  111.         GoTo 7270
  112.       Else
  113.   511   s4948 = Trim(UCase(s4948))
  114.         If Mid(s4948, 2, 2) <> ":\" Then
  115.           i4463 = 2
  116.           GoTo 7270
  117.         End If
  118.   562   If Right(s4948, 1) <> "\" Then
  119.           s4948 = s4948 + "\"
  120.         End If
  121.       End If
  122.   599 If s4936 = "" Then
  123.         i4463 = 3
  124.         GoTo 7270
  125.       Else
  126.   635   s4936 = UCase(s4936)
  127.       End If
  128.   646 If s4960 = "" Then
  129.         s4960 = "NO SEC1"
  130.       Else
  131.   678   s4960 = Trim(UCase(s4960))
  132.       End If
  133.   692 If s4964 = "" Then
  134.         s4964 = "NO SEC2"
  135.       Else
  136.   724   s4964 = Trim(UCase(s4964))
  137.       End If
  138.   738 If s4940 = "" Then
  139.         i4463 = 15
  140.         GoTo 7270
  141.       Else
  142.   774   s4940 = Trim(UCase(s4940))
  143.         If Mid(s4940, 2, 2) <> ":\" Then
  144.           i4463 = 15
  145.           GoTo 7270
  146.         End If
  147.   825   If Right(s4940, 1) <> "\" Then
  148.           s4940 = s4940 + "\"
  149.         End If
  150.       End If
  151.   862 If i4574 <= 0 Then
  152.         i4574 = 1
  153.       End If
  154.   883 If i4574 >= 26 Then
  155.         i4574 = 26
  156.       End If
  157.   905 If i4572 <= 0 Then
  158.         i4572 = 0
  159.       End If
  160.   925 If i4572 >= 365 Then
  161.         i4572 = 365
  162.       End If
  163.   949 If l4576 <= 0 Then
  164.         l4576 = 2147483647
  165.       End If
  166.   973 If l4576 >= 2147483647 Then
  167.         l4576 = 2147483647
  168.       End If
  169.  1001 If s4918 = "" Or Len(s4918) <> 2 Then
  170.         s4918 = "@0E@"
  171.       Else
  172.  1046   s4918 = "@" + UCase(s4918) + "@"
  173.       End If
  174.  1071 If s4922 = "" Or Len(s4922) <> 2 Then
  175.         s4922 = "@0F@"
  176.       Else
  177.  1116   s4922 = "@" + UCase(s4922) + "@"
  178.       End If
  179.  1141 If s4926 = "" Or Len(s4926) <> 2 Then
  180.         s4926 = "@0B@"
  181.       Else
  182.  1186   s4926 = "@" + UCase(s4926) + "@"
  183.       End If
  184.  1211 If s4930 = "" Or Len(s4930) <> 2 Then
  185.         s4930 = "@0C@"
  186.       Else
  187.  1256   s4930 = "@" + UCase(s4930) + "@"
  188.       End If
  189.  1281 CurrentDate d4473
  190.       s4465 = FormatDate(d4473, "ddmmyyyy")
  191.       s4477 = Left(s4465, 2)
  192.       s4481 = Mid(s4465, 3, 2)
  193.       s4485 = Mid(s4465, 5, 4)
  194.       i4475 = (Val(s4485) - 1980) * 512 + Val(s4481) * 32 + Val(s4477)
  195.       If s4976 = s4948 Then
  196.         s4469 = "QWK2: Line #1 and Line #3 of QWK2HOLD.CFG MUST NOT be the same."
  197.         ActivityLog s4469
  198.       Else
  199.  1427   i4952 = 0
  200.         GoSub 4382
  201.         Do
  202.           Do
  203.             Do
  204.               Do
  205.                 Do
  206.  1439             Cls 
  207.                   If User.SecLevel = s4960 Or User.SecLevel = s4964 Then
  208.                     Print s4930; "Unfortunately your present Security Level does not allow you"
  209.                     Print s4930; "the ability to use the QWK program at this time.  Please"
  210.                     Print s4930; "return after your security Level has been changed."
  211.                     WaitEnter 
  212.                     Print
  213.                     End 
  214.                   End If
  215.  1533             Print s4918; "The operator of this BBS allows callers to temporarily store QWK mail"
  216.                   Print s4918; "packets on the system for up to "; s4922; i4572;
  217.                   If i4572 > 1 Then
  218.                     Print s4918; " days."
  219.                   Else
  220.  1612               Print s4918; " day."
  221.                   End If
  222.  1627             Print
  223.                   Print s4926; "You should only turn this option on if you are using what is known as"
  224.                   Print s4926; "an Offline Mail Reader "; s4922; "and"; s4926; " you have "; s4922; "successfully"; s4926; " downloaded a QWK mail"
  225.                   Print s4926; "packet from this BBS."
  226.                   Print
  227.                   Print s4918; "You currently have the Automatic QWK mail option turned "; s4922;
  228.                   i4910 = Val(Mid(s4936, 9, 1))
  229.                   If Trim(Left(User.Comment(i4910), 8)) = "QWK2 ON" Then
  230.                     Print "ON"; s4918; "."
  231.                   Else
  232.  1857               Print "OFF"; s4918; "."
  233.                   End If
  234.  1879             i4908 = 0
  235.                   If Exists(s4940 + "QWK2MA1.FLG") Then
  236.                     i4908 = 1
  237.                     If s4552 <> "" Then
  238.                       Print s4930; s4552
  239.                     Else
  240.  1949                 Print s4930; "Mail Flag #1 is flying high at this time."
  241.                     End If
  242.                   End If
  243.  1964             If Exists(s4940 + "QWK2MA2.FLG") Then
  244.                     i4908 = 1
  245.                     If s4556 <> "" Then
  246.                       Print s4930; s4556
  247.                     Else
  248.  2028                 Print s4930; "Mail Flag #2 is flying high at this time."
  249.                     End If
  250.                   End If
  251.  2043             If Exists(s4940 + "QWK2MA3.FLG") Then
  252.                     i4908 = 1
  253.                     If s4560 <> "" Then
  254.                       Print s4930; s4560
  255.                     Else
  256.  2107                 Print s4930; "Mail Flag #3 is flying high at this time."
  257.                     End If
  258.                   End If
  259.  2122             If Exists(s4940 + "QWK2MA4.FLG") Then
  260.                     i4908 = 1
  261.                     If s4564 <> "" Then
  262.                       Print s4930; s4564
  263.                     Else
  264.  2186                 Print s4930; "Mail Flag #4 is flying high at this time."
  265.                     End If
  266.                   End If
  267.  2201             If Exists(s4940 + "QWK2MA5.FLG") Then
  268.                     i4908 = 1
  269.                     If s4568 <> "" Then
  270.                       Print s4930; s4568
  271.                     Else
  272.  2265                 Print s4930; "Mail Flag #5 is flying high at this time."
  273.                     End If
  274.                   End If
  275.  2280             Print
  276.                   If Trim(Left(User.Comment(Val(Mid(s4936, 9, 1))), 8)) = "QWK2 ON" Then
  277.                     If i4908 = 1 Then
  278.                       Print s4918; "If you are still ""Online"" when your QWK Packet(s) are due to be made"
  279.                       Print s4918; "then yours will be skipped till the next time mail is processed."
  280.                       Print
  281.                       Delay 3
  282.                     End If
  283.  2407             Else
  284.  2413               If i4908 = 1 Then
  285.                       Delay 3
  286.                     End If
  287.                   End If
  288.  2436             If i4952 > 0 Then
  289.                     Print s4918; "You have "; s4922; i4952; s4918; " mail packet";
  290.                     If i4952 > 1 Then
  291.                       Print "s";
  292.                     End If
  293.  2515               Print " for a total of "; s4926; Int(l4968 / 100); s4918; " Kbytes."
  294.                   Else
  295.  2567               Print s4930; "There are no QWK mail packets on hold for you at this time."
  296.                   End If
  297.  2582             Print
  298.                   Print s4926; "You have the following options available at this time."
  299.                   Print
  300.                   If User.Xpert = 0 Then
  301.                     Print s4918; "["; s4922; "C"; s4918; "]heck on existing mail packets being held for you."
  302.                     Print s4918; "["; s4922; "T"; s4918; "]urn On\Off the automatic creation of mail packets."
  303.                     Print s4918; "["; s4922; "I"; s4918; "]nformation about automatic creation of mail packets."
  304.                     Print s4918; "["; s4922; "U"; s4918; "]pload replies from your QWK mail reader."
  305.                     Print s4918; "["; s4922; "Q"; s4918; "]uit back to the previous menu."
  306.                   End If
  307.  2825             If User.Xpert = 1 Then
  308.                     Print s4918; "["; s4922; "C"; s4918; "]heck, ["; s4922; "T"; s4918; "]urn On/Off, ["; s4922; "I"; s4918; "]nformation, ["; s4922; "U"; s4918; "]pload, ["; s4922; "Q"; s4918; "]uit"
  309.                   End If
  310.  2990             Print
  311.                   s4469 = InputMask(s4918 + "QWK2: [ C T I U Q ] --> ", "X", "", 1213417543)
  312.                   s4469 = UCase(s4469)
  313.                   If (s4469 = "C") = 0 Then GoTo 3065
  314.                   GoSub 4382
  315.                 Loop
  316.  3065           If (s4469 = "T") = 0 Then GoTo 3094
  317.                 GoSub 3177
  318.               Loop
  319.  3094         If (s4469 = "I") = 0 Then GoTo 3123
  320.               GoSub 3577
  321.             Loop
  322.  3123       If (s4469 = "U") = 0 Then GoTo 3152
  323.             GoSub 4248
  324.           Loop
  325.  3152     If s4469 = "Q" Then
  326.             End 
  327.           End If
  328.  3170   Loop
  329.         End 
  330.  3177   Print
  331.         i4910 = Val(Mid(s4936, 9, 1))
  332.         If Trim(Left(User.Comment(i4910), 8)) = "QWK2 ON" Then
  333.           Print s4918; "You account has the automatic creation of mail packets turned "; s4922; "On."
  334.         Else
  335.  3293     Print s4918; "Your account has the automatic creation of mail packets turned "; s4922; "Off."
  336.         End If
  337.  3321   Print
  338.         s4465 = InputMask(s4918 + "Do you want mail packets premade for you?", "Y", "", 1213417543)
  339.         i4910 = Val(Mid(s4936, 9, 1))
  340.         If UCase(s4465) = "Y" Then
  341.           User.Comment(i4910) = "QWK2 ON  "
  342.           Print s4918; "Automatic QWK making has been turned "; s4922; "on"; s4918; "."
  343.         Else
  344.  3487     User.Comment(i4910) = "QWK2 OFF "
  345.           Print s4918; "Automatic QWK making has been turned "; s4922; "off"; s4918; "."
  346.         End If
  347.  3573   WaitEnter 
  348.         Return 
  349.  3577   s4469 = ProgPath + "QWK2HOLD.TXT"
  350.         If Exists(s4469) Then
  351.           Print s4918
  352.           DisplayTextFile(s4469)
  353.         Else
  354.  3626     Print s4922; "QWK2HOLD"; s4918; ", created by James Mardis (Fidonet 1:322/746)"
  355.           Print
  356.           Print
  357.           Print s4918; "Your Sysop has activated the option that will allow callers who are"
  358.           Print s4918; "using what is known as a ""Offline Mail Reader"" to automatically"
  359.           Print s4918; "have QWK mail packets made for them after inbound mail is processed."
  360.           Print
  361.           Print s4918; "Programs of this type allow a caller to download any mail they have"
  362.           Print s4918; "in one short call to the BBS.  They then can take all the time they"
  363.           Print s4918; "want to read and reply to the mail with out having to use up thier"
  364.           Print s4918; "alloted time on the BBS.  When they have finished with any replies"
  365.           Print s4918; "they call the BBS back and upload all of them in one quick upload."
  366.           WaitEnter 
  367.           Print
  368.           Print s4918; "Your Sysop has granted you the ability to have QWK mail packets"
  369.           Print s4918; "made automatically for you.  These QWK mail packets can only be"
  370.           Print s4918; "left on the system for "; s4922; i4572; s4918;
  371.           If i4572 > 1 Then
  372.             Print s4918; " days."
  373.           Else
  374.  3885       Print s4918; "day."
  375.           End If
  376.  3900     Print
  377.           Print s4918; "If you leave QWK mail on the system longer than this limit the"
  378.           Print s4918; "system will turn off this option for your account.  You will be"
  379.           Print s4918; "sent an automatic notice advising you that you have over age mail"
  380.           Print s4918; "packets.  15 days after the warning "; s4922; "all"; s4918; " of your remaining QWK"
  381.           Print s4918; "mail packets will be deleted."
  382.           Print
  383.           Print s4918; "You can later turn this option back on if you so desire."
  384.           WaitEnter 
  385.           Print
  386.           Print s4918; "Your system administrator has set the following values for this program:"
  387.           Print
  388.           Print s4918; "Warning message will be sent if packets are older then ["; s4922; i4572; s4918; "] ";
  389.           If i4572 > 1 Then
  390.             Print s4918; "days."
  391.           Else
  392.  4119       Print s4918; "day."
  393.           End If
  394.  4134     Print s4918; "Maximum number of QWK Packets in storage, ["; s4922; i4574; s4918; "] at one time."
  395.           Print s4918; "If the total size of existing packets exceed ["; s4922; Int(l4576 / 100); s4918; "] Kbytes"
  396.           Print s4918; "then no new packets will be made."
  397.           Print
  398.         End If
  399.  4244   WaitEnter 
  400.         Return 
  401.  4248   If Trim(Left(User.Comment(i4910), 8)) = "QWK2 ON" Then
  402.           PushCommand "U"
  403.           s4469 = "WCMAIL.EXE "
  404.           Shell s4469, ""
  405.         Else
  406.  4344     Print
  407.           Print s4918; "This menu option is only active if you have the Automatic"
  408.           Print s4918; "creation of QWK packets turned on."
  409.           Print
  410.           WaitEnter 
  411.         End If
  412.  4381   Return 
  413.  4382   i4908 = 0
  414.         i4548 = 0
  415.  4394   Do While i4548 < i4574
  416.           s4904 = s4948 + Str(User.UserId) + ".QW" + Chr(i4908 + 65)
  417.           s4914 = s4948 + Str(User.UserId) + ".QW" + Chr(i4548 + 65)
  418.           If Exists(s4914) Then
  419.             i4548 = i4548 + 1
  420.             i4908 = i4908 + 1
  421.             If s4914 <> s4904 Then
  422.               Name s4914 As s4904
  423.             End If
  424.  4566     Else
  425.  4572       i4548 = i4548 + 1
  426.           End If
  427.  4586   Loop
  428.  4592   l4968 = 0
  429.         s4904 = s4948 + Str(User.UserId) + ".QWA"
  430.         s4914 = s4976 + Str(User.UserId) + ".QWK"
  431.         If Exists(s4904) Or Exists(s4914) Then
  432.           i4548 = 0
  433.           Print
  434.           Print s4918; "At least one mail packet is on hold, looking for others."
  435.           Print
  436.           Print s4918; "  FileName      Size     Age"; s4922
  437.  4724     Do While i4548 < i4574 + 1
  438.             s4904 = s4948 + Str(User.UserId) + ".QW" + Chr(i4548 + 65)
  439.             If Exists(s4904) Then
  440.               FindFirst(s4904, 0, sr4495)
  441.               l4544 = sr4495.Size
  442.               w4489 = sr4495.DOSDate
  443.               l4968 = l4968 + sr4495.Size
  444.               Print s4922; LeftPad(UCase(Trim(MakeWild.PacketId)) + ".QW" + Chr(i4548 + 65), 8);
  445.               Print s4926; LeftPad(Str(Int(sr4495.Size / 100)), 8); "K";
  446.               Print s4922; LeftPad(Str(i4475 - w4489), 5);
  447.               If i4475 - w4489 = 1 Then
  448.                 Print s4918; " Day"
  449.               Else
  450.  5033           If i4475 - w4489 = 0 Then
  451.                   Print s4918; " Today"
  452.                 Else
  453.  5075             Print s4918; " Days"
  454.                 End If
  455.               End If
  456.  5090       Else
  457.  5096         GoTo 5154
  458.             End If
  459.  5102       i4548 = i4548 + 1
  460.             If i4548 > i4952 Then
  461.               i4952 = i4952 + 1
  462.             End If
  463.  5148     Loop
  464.  5154     s4465 = s4948 + Str(User.UserId)
  465.           If i4952 >= 26 Then
  466.             i4908 = 48
  467.           Else
  468.  5204       i4908 = i4952 + 1
  469.           End If
  470.  5218     s4904 = s4465 + ".QW" + Chr(i4908)
  471.           s4914 = s4976 + Str(User.UserId) + ".QWK"
  472.           If Exists(s4914) Then
  473.             CopyFile(s4914, s4904)
  474.             s4465 = Str(User.UserId) + ".QWK"
  475.             DeleteFile(s4465, i4980, 1)
  476.             i4952 = i4952 + 1
  477.             FindFirst(s4904, 0, sr4495)
  478.             l4544 = sr4495.Size
  479.             l4968 = l4968 + sr4495.Size
  480.             Print LeftPad(sr4495.Name, 12) + LeftPad(Str(Int(sr4495.Size / 100)), 14)
  481.           End If
  482.  5445   Else
  483.  5451     Return 
  484.         End If
  485.  5452   Print s4918; "You have "; s4922; i4952; s4918; " mail packet";
  486.         If i4952 > 1 Then
  487.           Print "s";
  488.         End If
  489.  5517   Print " for a total of "; s4926; Int(l4968 / 100); s4918; " Kbytes."
  490.         If i4952 > 0 Then
  491.           Print s4918; "The following choices are available for your use:"
  492.           Print s4918; "["; s4922; "A"; s4918; "]ll packets downloaded now and continue."
  493.           Print s4918; "["; s4922; "D"; s4918; "]ownload all packets now and log off of the BBS."
  494.           Print s4918; "["; s4922; "F"; s4918; "]irst, download only first packet and continue."
  495.           Print s4918; "["; s4922; "N"; s4918; "]o packets downloaded at this time, continue with BBS."
  496.           Print
  497.           s4469 = InputMask(s4918 + "Choose Download [" + s4922 + "A" + s4918 + "]ll, [" + s4922 + "D" + s4918 + "]ownload & Goodbye, [" + s4922 + "F" + s4918 + "]irst, or [" + s4922 + "N" + s4918 + "]one ", "X", "A", 1213417543)
  498.           s4469 = UCase(s4469)
  499.           s4972 = s4469
  500.           If s4469 = "N" Then
  501.             Print
  502.             Return 
  503.           End If
  504.  5934     If s4469 = "A" Then
  505.             If i4952 > 1 Then
  506.               Print s4918; "The mail packets will be sent in sequence, one right after the other."
  507.               Print s4926; "There will be a short pause between packets, please be patient."
  508.             End If
  509.           End If
  510.         End If
  511.  5996   If Local Then
  512.           Print
  513.           Print s4918; "Enter the path where you want your mail packets to wind up."
  514.           Print s4918; "Please use the following format shown in example: "; s4922; "C:\READER"; s4918; "."
  515.           s4956 = InputMask("-->", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  516.           If s4956 = "" Then
  517.             Return 
  518.           End If
  519.  6108     s4956 = Trim(UCase(s4956))
  520.           If Mid(s4956, 2, 2) <> ":\" Then
  521.             i4463 = 21
  522.             GoSub 7270
  523.           End If
  524.  6159     If Right(s4956, 1) = "\" Then
  525.             i4908 = Len(s4956) - 1
  526.             s4956 = Left(s4956, i4908)
  527.           End If
  528.         End If
  529.  6213   Print
  530.         If s4972 <> "A" Then
  531.           s4469 = InputMask(s4918 + "Hit the Enter key to begin the file transfer or [" + s4922 + "A" + s4918 + "] to abort.", "X", "", 1213417543)
  532.           If UCase(Left(s4469, 1)) = "A" Then
  533.             s4972 = ""
  534.             Return 
  535.           End If
  536.         End If
  537.  6326   i4954 = i4952
  538.  6363   For i4548 = 0 To i4952 - 1 Step 1
  539.           s4914 = s4948 + Str(User.UserId) + ".QW" + Chr(i4548 + 65)
  540.           s4469 = TempPath
  541.           s4904 = s4469 + UCase(Trim(MakeWild.PacketId)) + ".QW" + Chr(i4548 + 65)
  542.           If Local Then
  543.             If Len(s4956) <= 20 Then
  544.               PushCommand s4956
  545.             End If
  546.           End If
  547.  6543     CopyFile(s4914, s4904)
  548.           Del s4914
  549.           If SendFile(s4904, 1213417543) Then
  550.             Del s4904
  551.             ActivityLog "QWK2: File " + s4904 + " was downloaded successfully."
  552.             i4954 = i4954 - 1
  553.           Else
  554.  6628       Print s4930; " Mail transfer failed."; s4918
  555.             CopyFile(s4904, s4914)
  556.             Del s4904
  557.             ActivityLog "QWK2: " + s4904 + " was not downloaded successfully."
  558.             GoTo 6853
  559.           End If
  560.  6695     If s4972 = "F" Then
  561.             Print
  562.             s4469 = InputMask(s4918 + "[" + s4922 + "N" + s4918 + "]ext File, [" + s4922 + "S" + s4918 + "]top Downloading ", "X", "N", 1213417543)
  563.             If UCase(Left(s4469, 1)) = "S" Then
  564.               GoTo 6853
  565.             End If
  566.           End If
  567.  6830   Next
  568.  6853   If Not (i4954 = i4952) Then
  569.           i4908 = i4952 - i4954
  570.           i4952 = i4954
  571.  6927     For i4548 = 0 To i4954 - 1 Step 1
  572.             s4904 = Trim(s4948) + Str(User.UserId) + ".QW" + Chr(i4548 + 65)
  573.             s4914 = Trim(s4948) + Str(User.UserId) + ".QW" + Chr(i4908 + 65)
  574.             Name s4914 As s4904
  575.             i4908 = i4908 + 1
  576.           Next
  577.         End If
  578.  7117   i4910 = Val(Mid(s4936, 9, 1))
  579.         s4465 = Pad(UCase(Left(User.Comment(i4910), 9)), 9)
  580.         User.Comment(Val(Mid(s4936, 9, 1))) = s4465
  581.         If s4972 = "D" Then
  582.           Goodbye -1
  583.         End If
  584.  7269   Return 
  585.  7270   If i4463 >= 0 And i4463 <= 19 Then
  586.           Cls 
  587.           Print
  588.           If i4463 = 0 Then
  589.             Print s4930; "The QWK2HOLD.CFG file was not located."
  590.           Else
  591.  7335       Print s4918; "Line ["; s4922; i4463; s4918; "] of the "; s4922; "QWK2HOLD.CFG"; s4918; " has a problem."
  592.           End If
  593.  7402     Print
  594.           Print s4918; "The current values of your "; s4922; "QWK2HOLD.CFG"; s4918; " file are"; s4922; ":"
  595.           Print s4918; "Line  #1 = ["; s4922; s4976; s4918; "]"
  596.           Print s4918; "Line  #2 = ["; s4922; i4980; s4918; "]"
  597.           Print s4918; "Line  #3 = ["; s4922; s4948; s4918; "]"
  598.           Print s4918; "Line  #4 = ["; s4922; s4936; s4918; "]"
  599.           Print s4918; "Line  #5 = ["; s4922; s4960; s4918; "]"
  600.           Print s4918; "Line  #6 = ["; s4922; s4964; s4918; "]"
  601.           Print s4918; "Line  #7 = ["; s4922; i4574; s4918; "]"
  602.           Print s4918; "Line  #8 = ["; s4922; i4572; s4918; "]"
  603.           Print s4918; "Line  #9 = ["; s4922; l4576; s4918; "]"
  604.           Print s4918; "Line #10 = ["; s4922; i4902; s4918; "]"
  605.           Print s4918; "Line #11 = ["; s4922; Mid(s4918, 2, 2); s4918; "]"
  606.           Print s4918; "Line #12 = ["; s4922; Mid(s4922, 2, 2); s4918; "]"
  607.           Print s4918; "Line #13 = ["; s4922; Mid(s4926, 2, 2); s4918; "]"
  608.           Print s4918; "Line #14 = ["; s4922; Mid(s4930, 2, 2); s4918; "]"
  609.           Print s4918; "Line #15 = ["; s4922; s4940; s4918; "]"
  610.           Print
  611.           Print s4918; "This program will terminate after a 60 seconds pause."
  612.           Delay 60
  613.         End If
  614.  8116   If i4463 = 20 Then
  615.           Print
  616.           Print s4918; "Your input did not make sense, you may not download your QWK"
  617.           Print s4918; "packet at this time."
  618.           Print
  619.           WaitEnter 
  620.           Return 
  621.         End If
  622.  8169   If i4463 = 21 Then
  623.           Print
  624.           Print s4918; "The path you supplied could not be located.  Mail packet"
  625.           Print s4918; "transfer can not take place at this time."
  626.           Print
  627.           WaitEnter 
  628.           Return 
  629.         End If
  630.  8222   If i4463 = 22 Then
  631.           s4469 = "QWK2: User does not have QWK checking turned on."
  632.           ActivityLog s4469
  633.         End If
  634.  8253   If i4463 = 23 Then
  635.           s4469 = "QWK2: User did not meet security requirements for QWK2."
  636.           ActivityLog s4469
  637.         End If
  638.  8284   GoTo 8290
  639.       End If
  640.  8290 s4469 = "QWK2: Program has ended at this time."
  641.       ActivityLog s4469
  642.       End 
  643.